(mail-bury): Don't delete the frame where the

mail was being composed if the terminal cannot display more than
one frame; instead, switch to previous frame.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 932f52204c59ce2609b96da962e41ca72d56ebe3..d5a85741371989ce452e4880ee90d0d1707264d2 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -714,7 +714,12 @@ Prefix arg means don't delete this window."
     (if (and (or (window-dedicated-p (frame-selected-window))
                 (cdr (assq 'mail-dedicated-frame (frame-parameters))))
             (not (null (delq (selected-frame) (visible-frame-list)))))
-       (delete-frame (selected-frame))
+       (progn
+         (if (display-multi-frame-p)
+             (delete-frame (selected-frame))
+           ;; The previous frame is where normally they have the
+           ;; RMAIL buffer displayed.
+           (other-frame -1)))
       (let (rmail-flag summary-buffer)
        (and (not arg)
             (not (one-window-p))